www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\admin\admin_left.asp
<!--#include file="../Include/liangconn.asp"-->
<!--#include file="../Include/CheckLogin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>LEFT</title>
<link href="images/Menu/Style.css" rel="stylesheet" type="text/css">
<style type="text/css">
a:link { text-decoration: none; color: #3A4273 }
a:hover { text-decoration: underline }
a:visited { text-decoration: none; color: #464F86 }
body, table, tr, td { scrollbar-base-color: #E3E3EA; scrollbar-arrow-color: #007db5; font-size: 12px }
.header { color: #F1F3FB; background-color: #007db5; font-family: Tahoma,Verdana; font-weight: bold; font-size: 12px }
.tablerow { font-family: Tahoma,Verdana; color: #464F86; font-size: 12px }
body {
background-color: #00659c;
}
BODY {
scrollbar-face-color:#BBCEE8;
scrollbar-highlight-color:#F2FAFD;
scrollbar-3dlight-color:#BCCFE9;
scrollbar-darkshadow-color:#BBCEF8;
scrollbar-shadow-color:#85A7D6;
scrollbar-arrow-color:#2445C8;
scrollbar-track-color:#BCD9F3;
}
</style>
<script language="JavaScript">
function isExit(){
if(confirm("您确定要退出管理吗？")){
top.location.href="Admin_Login.asp?act=logout"
}
}
function chgTDColor(oTD) {
oTD.style.cursor = "hand";
if(oTD.style.backgroundColor == "") {
oTD.style.backgroundColor = "#E3E3EA";
if(oTD.className == "header") {
oTD.style.color = "#464F86";
}
} else {
oTD.style.backgroundColor = "";
if(oTD.className == "header") {
oTD.style.color = "#F1F3FB";
}
}
}
function showhideMenu(n) {
var oTR,oImg;
oTR = eval("document.all.tr"+n);
oImg = eval("img"+n);
if (oTR.style.display == "none") {
oTR.style.display = "block";
oImg.src="images/Menu/menu1.gif";
oImg.parentElement.parentElement.bgColor="#E3E3EA"
for (i=1;i<=5;i++ ) {
if (i!=n) {
var mTR = eval("tr"+i);
var mImg = eval("img"+i);
mImg.parentElement.parentElement.bgColor="";
}
}
} else {
oTR.style.display = "none";
oImg.src="images/Menu/menu2.gif";
}
}
</script>
</head>
<base target="EwSys_Main" oncontextmenu=self.event.returnValue=false>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#EEEEF6">
<tr>
<td valign="top">
<table width="101%" border="0" cellspacing="0" cellpadding="0" bgcolor="#EEEEF6" class="tablerow">
<tr>
<td class="header" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)" onClick="showhideMenu(1)"><img src="images/Menu/Menu2.gif" align="absmiddle" width="25" height="25" name="img1"><b><strong><b>≡
<b><strong>会 员 管 理</strong></b> ≡</b></strong></b></td>
</tr>
<tr>
<td height="1" bgcolor="#000000"></td>
</tr>
<tr id="tr1">
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr bgcolor="#003399" class="tablerow">
<td bgcolor="#EEEEF6" onClick="top.EwSys_Main.location.href='Member_Manage.asp';" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)"><img src="images/Menu/Blank.gif" width="25" height="25" border="0" align="absmiddle"><IMG SRC="images/Menu/icon.gif" WIDTH="12" HEIGHT="9" BORDER="0" ALT="">会员管理</td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="header" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)" onClick="showhideMenu(3)"><img src="images/Menu/Menu2.gif" align="absmiddle" width="25" height="25" name="img3"><b>≡
资 源 管 理 ≡</b></td>
</tr>
<tr>
<td height="1" bgcolor="#000000"></td>
</tr>
<tr style="display: none" id="tr3">
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
sql="SELECT * From Liangjing_SrcChild order by Child_IsUse,Child_OrderBy"
'response.Write(sql)
'response.End()
set RS=conn.execute(sql)
while not Rs.eof
%>
<tr>
<td onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)" onClick="top.EwSys_Main.location.href='Goin.asp?Src_ChildID=<%=Rs("Child_ID")%>';"><img src="images/Menu/Blank.gif" align="absmiddle" width="25" height="25"><IMG SRC="images/Menu/icon.gif" WIDTH="12" HEIGHT="9" BORDER="0" ALT=""><%=Rs("Child_Name")%></td>
</tr>
<%
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
%>
</table>
</td>
</tr>
<tr>
<td class="header" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)" onClick="showhideMenu(5)"><img src="images/Menu/Menu2.gif" align="absmiddle" width="25" height="25" name="img5"><b>≡
<strong>消 息 管 理</strong> ≡</b></td>
</tr>
<tr>
<td height="1" bgcolor="#000000"></td>
</tr>
<tr id="tr5" style="display: none">
<td>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" >
<tr bgcolor="#003399" class="tablerow">
<td bgcolor="#EEEEF6" onClick="top.EwSys_Main.location.href='Msg_Manage.asp';" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)"><img src="images/Menu/Blank.gif" width="25" height="25" border="0" align="absmiddle"><IMG SRC="images/Menu/icon.gif" WIDTH="12" HEIGHT="9" BORDER="0" ALT="">消息管理</td>
</tr>
<tr bgcolor="#003399" class="tablerow">
<td bgcolor="#EEEEF6" onClick="top.EwSys_Main.location.href='Msg_Add.asp';" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)"><img src="images/Menu/Blank.gif" width="25" height="25" border="0" align="absmiddle"><IMG SRC="images/Menu/icon.gif" WIDTH="12" HEIGHT="9" BORDER="0" ALT="">添加消息</td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="header" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)" onClick="showhideMenu(11)"><img src="images/Menu/Menu2.gif" align="absmiddle" width="25" height="25" name="img11"><b>≡
<strong>广 告 管 理</strong> ≡</b></td>
</tr>
<tr>
<td height="1" bgcolor="#000000"></td>
</tr>
<tr id="tr11" style="display: none">
<td height="">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" >
<tr bgcolor="#003399">
<td height="21" bgcolor="#EEEEF6" onClick="top.EwSys_Main.location.href='Media_link.asp';" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)"><img src="images/Menu/Blank.gif" width="25" height="25" border="0" align="absmiddle"><IMG SRC="images/Menu/icon.gif" ALT="" WIDTH="12" HEIGHT="9" BORDER="0">友情链接管理</td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="header" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)" onClick="showhideMenu(8)"><img src="images/Menu/Menu2.gif" align="absmiddle" width="25" height="25" name="img8"><b>≡
<strong>系 统 管 理</strong> ≡</b></td>
</tr>
<tr>
<td height="1" bgcolor="#000000"></td>
</tr>
<tr id="tr8" style="display: none">
<td height="40">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" >
<tr bgcolor="#003399">
<td height="21" bgcolor="#EEEEF6" onClick="top.EwSys_Main.location.href='Admin_AdminManage.asp';" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)"><img src="images/Menu/Blank.gif" width="25" height="25" border="0" align="absmiddle"><IMG SRC="images/Menu/icon.gif" ALT="" WIDTH="12" HEIGHT="9" BORDER="0">系统管理员</td>
</tr>
<tr bgcolor="#003399">
<td height="21" bgcolor="#EEEEF6" onClick="top.EwSys_Main.location.href='Admin_ClassManage.asp';" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)"><img src="images/Menu/Blank.gif" width="25" height="25" border="0" align="absmiddle"><IMG SRC="images/Menu/icon.gif" ALT="" WIDTH="12" HEIGHT="9" BORDER="0">栏目管理</td>
</tr>
<tr bgcolor="#003399">
<td height="21" bgcolor="#EEEEF6" onClick="top.EwSys_Main.location.href='Sys_TagManage.asp';" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)"><img src="images/Menu/Blank.gif" width="25" height="25" border="0" align="absmiddle"><IMG SRC="images/Menu/icon.gif" ALT="" WIDTH="12" HEIGHT="9" BORDER="0">系统标签管理</td>
</tr>
<tr bgcolor="#003399">
<td height="21" bgcolor="#EEEEF6" onClick="top.EwSys_Main.location.href='Admin_UpFileManage.asp';" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)"><img src="images/Menu/Blank.gif" width="25" height="25" border="0" align="absmiddle"><IMG SRC="images/Menu/icon.gif" ALT="" WIDTH="12" HEIGHT="9" BORDER="0">文件管理</td>
</tr>
<tr bgcolor="#003399">
<td height="21" bgcolor="#EEEEF6" onClick="top.EwSys_Main.location.href='Admin_SpaceSize.asp';" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)"><img src="images/Menu/Blank.gif" width="25" height="25" border="0" align="absmiddle"><IMG SRC="images/Menu/icon.gif" ALT="" WIDTH="12" HEIGHT="9" BORDER="0">空间占用</td>
</tr>
<tr bgcolor="#003399">
<td height="21" bgcolor="#EEEEF6" onClick="top.EwSys_Main.location.href='Msg_Manage.asp';" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)"><img src="images/Menu/Blank.gif" width="25" height="25" border="0" align="absmiddle"><IMG SRC="images/Menu/icon.gif" ALT="" WIDTH="12" HEIGHT="9" BORDER="0"><a href="Admin_BackData.asp">数据备份</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="header" onMouseOver="chgTDColor(this)" onMouseOut="chgTDColor(this)" onclick="javascript:isExit();"><img src="images/Menu/Menu2.gif" align="absmiddle" width="25" height="25"><b>≡
退 出 管 理 ≡</a></b></td>
</tr>
<tr>
<td height="1" bgcolor="#000000"></td>
</tr>
<tr>
<td height=77>
<%
if Session("_AdminID") <> "" then
Set Rs_Admin = Server.createobject("Adodb.recordset")
Sql_Admin = "Select * from Liangjing_Admin Where Admin_ID="&Session("_AdminID")
Rs_Admin.open Sql_Admin,conn
if Not Rs_Admin.eof then
%>
<div align="center">管理员信息</div>
<div align="left"> 登 陆 名：<%=Rs_Admin("Admin_LoginName")%></div>
<div align="left"> 姓 名：<%=Rs_Admin("Admin_Name")%></div>
<div align="left"> 当 前 IP：<%=Request.ServerVariables("REMOTE_ADDR")%></div>
<div align="left"> 总登次数：<%=Rs_Admin("Admin_LoginNum")%></div>
<div align="left"> 近期登陆：<%=FormatDateTime(Rs_Admin("Admin_LastLoginDate"),2)%></div>
<div align="left"> 登陆时间：<%=FormatDateTime(Rs_Admin("Admin_LastLoginDate"),4)%></div>
<div align="left"> 登 陆 IP：<%=Rs_Admin("Admin_LastLoginIP")%></div>
<%
end if
end if
%>
</td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<script src="<%=MyCount%>/count/count.asp?style=0"></script>